VecResult2=[];
VecResult=[];
ValueResult=zeros(1,39);
ValueResult2=zeros(1,39);
ValueFolder='/sps/isc/rneveu/EtudeIRM/Nature/';
load([ValueFolder 'DonneesNature.mat']);
load([ValueFolder 'EtudeNature.mat']);
VecEditors1Temp(1,:)=[];
ValueSize=size(VecJournalTemp,1);
for n1=1:600
    eval(sprintf('load(''/sps/isc/rneveu/EtudeIRM/Nature/Results/ResultsFile%d.mat'');',n1));
    eval(sprintf('load(''/sps/isc/rneveu/EtudeIRM/Nature/Results/AllResultsFile%d.mat'');',n1));
    for n2=1:39
        eval(sprintf('VecValueTemp=VecResult2Journal%d;',n2));
        eval(sprintf('VecValueTemp2=VecResultJournal%d;',n2));
        VecResultTemp=[];
        for n3=1:size(VecValueTemp,1)
            ValueTemp=VecValueTemp{n3,1};
            if size(ValueTemp,1)==0
                VecResult=[VecResult;n2 n3];
                VecResultTemp=[VecResultTemp;n3];
            end
        end
        if size(VecResultTemp,1)>0
            VecValueTemp(VecResultTemp,:)=[];
            eval(sprintf('VecResult2Journal%d=VecValueTemp;',n2));
            VecValueJournal2(1,n2)=VecValueJournal2(1,n2)-size(VecResultTemp,1);
            if size(VecValueTemp,1)~=VecValueJournal2(1,n2)
                n1
                n2
                n3
                return
            end
        end
        VecResultTemp=[];
        for n3=1:size(VecValueTemp2,1)
            ValueTemp2=VecValueTemp2{n3,1};
            if size(ValueTemp2,1)==0
                VecResult2=[VecResult2;n2 n3];
                VecResultTemp=[VecResultTemp;n3];
            end
        end
        if size(VecResultTemp,1)>0
            VecValueTemp2(VecResultTemp,:)=[];
            eval(sprintf('VecResultJournal%d=VecValueTemp2;',n2));
            VecValueJournal(1,n2)=VecValueJournal(1,n2)-size(VecResultTemp,1);
            if size(VecValueTemp2,1)~=VecValueJournal(1,n2)
                n1
                n2
                n3
                return
            end
        end
    end
    ValueResult=ValueResult+VecValueJournal2;
    ValueResult2=ValueResult2+VecValueJournal;
    ValueTemp=['save([ValueFolder ''ResultsCopy3/ResultsFile' num2str(n1) '.mat''],'];
    for n2=1:ValueSize
        ValueTemp=[ValueTemp '''VecResultJournal' num2str(n2) ''',' '''VecResult2Journal' num2str(n2) ''','];
    end
    for n2=1:size(VecEditors1Temp,1)
        if n2<size(VecEditors1Temp,1)
            ValueTemp=[ValueTemp '''VecResultEditors' num2str(n2) ''','];
        else
            ValueTemp=[ValueTemp '''VecResultEditors' num2str(n2) ''');'];
        end
    end
    save([ValueFolder 'ResultsCopy3/AllResultsFile' num2str(n1) '.mat'],'VecValueJournal','VecValueJournal2','VecValueEditor','VecValueEditor2');
    eval(ValueTemp);
end
clear VecEditors1Temp